home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / tpwin31.zip / STRESS.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-06  |  2KB  |  54 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       Turbo Pascal for Windows Run-time Library       }
  4. {       Windows 3.1 API Interface Unit                  }
  5. {       Stree function declarations                     }
  6. {                                                       }
  7. {       Copyright (c) 1992 Borland International        }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Stress;
  12.  
  13. interface
  14.  
  15. uses WinTypes;
  16.  
  17. {***** Simple types & common helper macros ********************************}
  18.  
  19. { stuff for AllocDiskSpace() }
  20. const
  21.   eds_Win     = 1;
  22.   eds_Cur     = 2;
  23.   eds_Temp    = 3;
  24.  
  25.  
  26. { function prototypes }
  27. function AllocMem(dwLeft: Longint): Bool;
  28. procedure FreeAllMem;
  29. function AllocFileHandles(left: Integer): Integer;
  30. procedure UnAllocFileHandles;
  31. function GetFreeFileHandles: Integer;
  32. function AllocDiskSpace(lLeft: Longint; wDrive: Word): Integer;
  33. procedure UnAllocDiskSpace(wDrive: Word);
  34. function AllocUserMem(wContig: Word): Bool;
  35. procedure FreeAllUserMem;
  36. function AllocGDIMem(wLeft: Word): Bool;
  37. procedure FreeAllGDIMem;
  38.  
  39. implementation
  40.  
  41. function AllocMem;                           external 'STRESS' index 2;
  42. procedure FreeAllMem;                        external 'STRESS' index 3;
  43. function AllocFileHandles;                   external 'STRESS' index 6;
  44. procedure UnAllocFileHandles;                external 'STRESS' index 7;
  45. function GetFreeFileHandles;                 external 'STRESS' index 8;
  46. function AllocDiskSpace;                     external 'STRESS' index 10;
  47. procedure UnAllocDiskSpace;                  external 'STRESS' index 11;
  48. function AllocUserMem;                       external 'STRESS' index 12;
  49. procedure FreeAllUserMem;                    external 'STRESS' index 13;
  50. function AllocGDIMem;                        external 'STRESS' index 14;
  51. procedure FreeAllGDIMem;                     external 'STRESS' index 15;
  52.  
  53. end.
  54.